home *** CD-ROM | disk | FTP | other *** search
/ David Beckham England Euro Wallet / David Beckham England Euro Wallet CD.iso / mac / BECKHAM.app / Contents / Windows / BECKHAM.exe / BECKHAM.dxr / 00001_startmovie.ls next >
Encoding:
Text File  |  2004-02-04  |  767 b   |  29 lines
  1. on prepareMovie
  2.   clearGlobals()
  3.   set the stageColor to 255
  4. end
  5.  
  6. on startMovie
  7.   global gProjWinName, gEmailObj, gFirstArrive
  8.   if (the environment).runMode = "Projector" then
  9.     the alertHook = script("Alert")
  10.     set the exitLock to 1
  11.   end if
  12.   dosRegister("6F1561B-12J0E6K")
  13.   gProjWinName = dosGetAppWindowID()
  14.   put "gProjWinName = " & gProjWinName
  15.   dosSetFrontWindow(gProjWinName)
  16.   if dosGetLastError() <> 0 then
  17.     put "windowing error:" & dosGetLastError()
  18.   end if
  19.   if the platform contains "win" then
  20.     nothing()
  21.   end if
  22.   if the platform contains "mac" then
  23.     gEmailObj = new(xtra("DirectEmail"), EMPTY, EMPTY, EMPTY, 139454235)
  24.   else
  25.     gEmailObj = new(xtra("DirectEmail"), EMPTY, EMPTY, EMPTY, 140693184)
  26.   end if
  27.   gFirstArrive = VOID
  28. end
  29.